100 Plus Great Games 2/100PLUSV2.BIN/games/Triad.dxr/playing cards_58_t hotti.ls

Text File | 2002-01-25 | 1.1 KB | 53 lines

property spriteNum, row, fp
global tableau, equal, currentsel, getlist, godlist, basecard

on beginSprite me
  row = determinerow()
  can = [#one: 31, #two: 45, #three: 59, #four: 73]
  fp = can[row]
end

on determinerow me
  if spriteNum = 87 then
    return #one
  else
    if spriteNum = 88 then
      return #two
    else
      if spriteNum = 89 then
        return #three
      else
        if spriteNum = 90 then
          return #four
        end if
      end if
    end if
  end if
end

on mouseEnter me
  if getlist <> VOID then
    if tableau[row].getcardcount() < 14 then
      if tableau[row].getcardcount() > 0 then
        if getlist.getlastcard().rankvalue = (tableau[row].getlastcard().rankvalue - 1) then
          equal = 1
          godlist = tableau[row]
          currentsel = tableau[row].getlastcard().spnum + 1
        end if
      else
        if tableau[row].getcardcount() = 0 then
          equal = 1
          godlist = tableau[row]
          currentsel = fp
        end if
      end if
    end if
  end if
end

on mouseLeave me
  equal = 0
  currentsel = 0
  godlist = VOID
end